   10FORh=0TO2:FORv=0TO2:VDU28,h*6,22,19,v*6,30:FORy=-3TO3:PRINTSPCABSy"*";:IFABSy=3PRINTELSEPRINTSPC(5-2*ABSy)"*"
   12NEXT,,
